home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / XLisp-Stat / Book / scroll.lsp < prev    next >
Text File  |  1990-10-11  |  847b  |  21 lines
  1. ; book p.232
  2.  
  3. (setf p-label (send text-item-proto :new "p"))
  4. (setf n-label (send text-item-proto :new "n"))
  5. (setf p-value (send text-item-proto :new "" :text-length 10))
  6. (setf n-value (send text-item-proto :new "" :text-length 10))
  7. (setf p-scroll (send interval-scroll-item-proto :new
  8.                      '(0 1)
  9.                      :text-item p-value
  10.                      :action
  11.                      #'(lambda (x) (format t "p = ~g~%" x))))
  12. (setf n-scroll (send interval-scroll-item-proto :new
  13.                      (iseq 1 50)
  14.                      :text-item n-value
  15.                      :action
  16.                      #'(lambda (x) (format t "n = ~g~%" x))))
  17. (send dialog-proto :new (list (list p-label p-value)
  18.                               p-scroll
  19.                               (list n-label n-value)
  20.                               n-scroll))
  21.